home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / DrawImage.asc < prev    next >
Text File  |  1980-03-11  |  1KB  |  48 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Command
  12. '  -Wb Icon Image  
  13. '  -Wb Wind Open 
  14. '  -Wb Wind Base 
  15. '  -Wb Wind Rastport 
  16. '  -Wb Draw Image  
  17. '  -Get Msg
  18. '  -Wb Free Image
  19. '  -Wb Wind Close
  20.  
  21. A$=Fsel$(Dir$,"norman.abk","Chargez une banque contenant","des icones SVP.")
  22. Load A$,2
  23. '
  24. 'Creer une structure Image 
  25. TR0=Wb Icon Image(1)
  26. '
  27. Amos To Back 
  28. 'Ouverture d'un ecran Intuition
  29. Wb Wind Open SCR To 164,56,197,166,2+4+8+$2000000
  30. '
  31. 'W=Adresse de la fenetre 
  32. 'RP=Adresse du Rastport de la fenetre
  33. W=Wb Wind Base
  34. RP=Wb Wind Rastport(W)
  35. '
  36. 'Affichage de l'image
  37. Wb Draw Image TR0 To RP,0,0
  38. '
  39. 'Attente la pression du 'CloseGadget'... 
  40. While Get Msg(W)<>$200 : Wend 
  41. '
  42. 'Libere la structure image 
  43. Wb Free Image TR0
  44. '
  45. Amos To Front 
  46. 'Ferme la fenetre  
  47. Wb Wind Close W
  48.